1 REM CONVERTED FROM "RAINBOW.C" BY SEAN ROONEY, PORT CREDIT ONT. 2 REM SUNDAY NOV.11, 1984. 3 REM A PARODY FOR PEOPLE INTO COMPUTERS 4 : 5 : 30 REM SOUND WITH WORDS ON SCREEN 100 CLR:PRINTCHR$(8):PRINTCHR$(142):PRINTCHR$(155):GOSUB50000 120 BO=53280:BG=53281:POKEBO,12:POKEBG,11 140 VC=54296:REM VOLUME CONTROL 160 A1=54277:A2=54284:A3=54291 180 S1=54278:S2=54285:S3=54292 200 W1=54276:W2=54283:W3=54290 220 H1=54273:H2=54280:H3=54287 240 L1=54272:L2=54279:L3=54286 300 REM CONTROL STRINGS 320 CS$=CHR$(147):REM CLEAR SCREEN 340 L$=CHR$(17)+CHR$(17):REM PRINT TWO LINES DOWN 360 N$="":REM NO CHARACTER 500 POKEVC,15 520 POKEA1,136:POKEA2,136:POKEA3,136 540 POKES1,136:POKES2,136:POKES3,136 560 POKEW1,33:POKEW2,33:POKEW3,33 600 REM "OVER THE RAINBOW" -- COPYRIGHT 1938 METRO-GOLDWYN-MAYER INC. 620 REM FROM THE PICTURE "THE WIZARD OF OZ" -- ALL RIGHTS RESERVED. 1000 REM START OF SONG -- READ IN NOTES AND STRING DATA WITH CONTROL CHARS. 1020 REM PART ONE -- BLACK AND WHITE BEGINNING OF SONG PLAYED SLOWLY 1060 PRINT"[147] SOMEWHERE OVER THE" 1070 PRINT" RAMBOW" 1080 PRINT" (EDITED) BY SEAN ROONEY" 1100 FORT=1TO2800:NEXT:PRINTCS$;L$ 1120 W=300:REM TIME DELAY VARIABLE 1200 READ A,B,C,D,E,F,G$ 1210 IFA=500THENW=W-100:GOTO1200 1220 IFA=600THENGOSUB1350:GOTO1200 1230 IFA=700THENW=W+100:GOTO1200 1240 IFA=800THENW=200:GOTO1200 1250 IFA=999THENGOSUB50000:GOSUB1350:END:PRINTCHR$(144):PRINTCHR$(9):END 1260 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F 1270 POKEW1,33:POKEW2,33:POKEW3,33 1280 IFG$=""THEN1310 1290 IFASC(G$)=133THENPRINT:PRINT 1300 IFASC(G$)=137THENPRINTCS$;L$ 1310 PRINTG$; 1320 FORT=1TOW:NEXT 1330 GOTO1200 1340 REM PART TWO -- IN COLOUR 1350 POKEH1,O:POKEL1,0:POKEH2,0:POKEL2,0:POKEH3,0:POKEL3,0 1360 PRINT"[147]":FORT=1TO43:POKEBO,T:POKEBG,T:FORQ=1TO15:NEXTQ,T 1370 W=150:RETURN 1500 REM START OF DATA 1520 DATA0,0,25,177,0,0,,0,0,30,141,0,0,,15,70,25,177,10,60,,15,70,30,141 1525 DATA10,60, 1530 DATA17,37,25,177,10,60,,17,37,30,141,10,60,,15,70,25,177,10,60,,15,70 1535 DATA30,141,10,60,:REM BAR 1 1540 DATA0,0,27,56,0,0,,0,0,30,141,0,0,,17,37,27,56,11,114,,17,37,30,141,11,114, 1550 DATA20,100,27,56,11,114,,20,100,30,141,11,114,,19,63,27,56,11,114,,19,63 1555 DATA30,141,11,114,:REM BAR 2 1560 DATA0,0,34,75,0,0,,0,0,34,75,0,0,,19,63,34,75,7,163,,19,63,34,75,7,163, 1570 DATA22,227,34,75,12,216,,22,227,34,75,12,216,,20,100,34,75,12,216,,20,100 1575 DATA34,75,12,216,:REM BAR 3 1580 DATA30,141,61,126,19,63,,30,141,45,198,19,63,,27,56,54,111,17,37,,27,56 1585 DATA40,200,17,37, 1590 DATA25,177,51,97,15,70,,25,177,38,126,15,70,,38,126,45,198,15,70,:REM BAR 4 1600 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"WHEN " 1610 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE " 1620 DATA15,70,30,141,10,60,WORLD ,15,70,30,141,10,60, 1630 DATA15,70,22,227,10,60,IS ,15,70,25,177,10,60,"A ":REM BAR 5 1640 DATA17,37,27,56,0,0,HOPE-,17,37,00,00,0,0, 1650 DATA17,37,27,56,0,0,"LESS ",17,37,00,00,0,0, 1660 DATA17,37,27,56,10,60,"JUM-",17,37,30,141,10,60,"[133]BLE " 1670 DATA17,37,20,100,10,60,AND ,17,37,22,227,10,60,"THE " 1680 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0, 1685 DATA19,63,25,177,0,0,DROPS ,19,63,0,0,0,0, 1690 DATA19,63,25,177,10,60,TUM-,19,63,30,141,10,60,"BLE " 1700 DATA19,63,19,63,10,60,ALL ,19,63,20,100,10,60,"A " 1710 DATA0,0,22,227,5,185,"[133]ROUND,",0,0,22,227,5,185, 1720 DATA20,100,22,227,5,185,,20,100,22,227,5,185, 1730 DATA20,100,22,227,7,163,,20,100,22,227,7,163, 1740 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 8 1750 DATA0,0,25,177,5,25,"[133]HEAV-",7,163,25,177,5,25, 1760 DATA8,147,25,177,5,25,,8,147,25,177,5,25, 1770 DATA0,0,25,177,5,103,EN ,8,147,25,177,5,103, 1780 DATA9,21,25,177,5,103,,9,21,25,177,5,103,:REM BAR 9 1785 DATA500,500,500,500,500,500,TRIPLET 1790 DATA20,100,25,177,8,147,O-,20,100,25,177,8,147, 1800 DATA20,100,30,141,8,147,PENS ,20,100,30,141,8,147, 1810 DATA20,100,27,56,8,147,A ,20,100,27,56,8,147, 1815 DATA700,700,700,700,700,700,SLOWER 1820 DATA21,154,25,177,7,163,MAG-,21,154,25,177,7,163, 1830 DATA21,154,22,227,7,163,IC ,21,154,22,227,7,163,:REM BAR 10 1840 DATA12,216,20,100,0,0,"LANE.",12,216,20,100,0,0, 1850 DATA12,216,20,100,7,163,,12,216,20,100,7,163, 1860 DATA0,0,20,100,12,216,,0,0,20,100,12,216, 1870 DATA0,0,20,100,17,37,,0,0,20,100,17,37,:REM BAR 11 1880 DATA30,141,61,126,19,63,,30,141,45,198,19,63, 1890 DATA27,56,54,111,17,37,,27,56,40,200,17,37, 1900 DATA25,177,51,97,15,70,,25,177,38,126,15,70, 1910 DATA22,227,45,198,13,156,,22,227,34,75,13,156,:REM BAR 12 1920 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"[133]WHEN " 1930 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE " 1940 DATA15,70,30,141,10,60,CLOUDS ,15,70,30,141,10,60, 1950 DATA15,70,22,227,10,60,DARK-,15,70,25,177,10,60,"EN ":REM BAR 13 1960 DATA17,37,27,56,0,0,UP ,17,37,00,00,0,0, 1970 DATA17,37,27,56,0,0,"THE ",17,37,00,00,0,0, 1980 DATA17,37,27,56,10,60,"SKY-",17,37,30,141,10,60,"[133]WAY " 1990 DATA17,37,20,100,10,60,THERE'S ,17,37,22,227,10,60,"A ":REM BAR 14 2000 DATA19,63,25,177,0,0,RAM-,19,63,0,0,0,0, 2010 DATA19,63,25,177,0,0,BOW ,19,63,0,0,0,0, 2020 DATA19,63,25,177,10,60,HIGH-,19,63,30,141,10,60,"WAY " 2030 DATA19,63,19,63,10,60,TO ,19,63,20,100,10,60,"BE " 2040 DATA0,0,22,227,5,185,"[133]OPENED,",0,0,22,227,5,185, 2050 DATA20,100,22,227,5,185,,20,100,22,227,5,185, 2060 DATA20,100,22,227,7,163,,20,100,22,227,7,163, 2070 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 16 2080 DATA0,0,19,63,4,73,"[133]LEAD-",0,0,19,63,4,73, 2090 DATA12,216,19,63,4,73,,12,216,19,63,4,73, 2100 DATA12,216,20,100,8,147,ING ,12,216,20,100,8,147, 2110 DATA12,216,20,100,8,147,,12,216,20,100,8,147,:REM BAR 17 2120 DATA24,63,40,200,17,63,FROM ,24,63,40,200,17,63, 2130 DATA24,63,38,126,17,37,YOUR ,24,63,38,126,17,37, 2140 DATA25,177,34,75,11,114,COMMODORE-,25,177,34,75,11,114, 2150 DATA25,177,38,126,5,185,VIDEO ,25,177,38,126,5,185,:REM BAR 18 2160 DATA0,0,30,141,7,163," SCREEN",0,0,30,141,7,163, 2170 DATA20,100,30,141,7,163,,20,100,30,141,7,163, 2180 DATA20,100,30,141,15,70,,20,100,30,141,15,70, 2190 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 19 2200 DATA0,0,0,0,7,163,,0,0,0,0,7,163, 2210 DATA17,37,0,0,7,163," TO ",20,100,0,0,7,163,"A " 2220 DATA25,177,0,0,7,163,PLACE ,30,141,0,0,7,163,"BE-" 2230 DATA38,126,0,0,7,163,HIND ,40,200,0,0,7,163,"THE ":REM BAR 20 2240 DATA0,0,30,141,7,163,DISK DRIVE,0,0,30,141,7,163, 2250 DATA20,100,30,141,7,163,,20,100,30,141,7,163, 2260 DATA20,100,30,141,15,70,,20,100,30,141,15,70, 2270 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 21 2290 DATA0,0,0,0,7,163,,0,0,0,0,7,163, 2300 DATA0,0,17,37,7,163,"JUST ",0,0,20,100,7,163,"A " 2310 DATA0,0,25,177,7,163,STEP ,0,0,30,141,7,163,"BEY-" 2320 DATA28,214,38,126,12,32,OND ,23,214,40,200,12,32,"THE ":REM BAR 22 2330 DATA0,0,45,198,0,0,RAIN,27,56,45,198,22,227, 2340 DATA40,200,45,198,34,75,,40,200,45,198,34,75, 2350 DATA34,75,45,198,27,56,,51,97,45,198,40,200,:REM BAR 23 2360 DATA30,141,0,0,0,0,,30,141,40,200,45,198, 2370 DATA30,141,54,111,72,169,,30,141,54,111,72,169, 2380 DATA30,141,54,111,72,169,,30,141,54,111,72,169, 2390 DATA30,141,76,252,102,194,,30,141,76,252,102,194,:REM BAR 24 2400 DATA600,600,600,600,600,600,PART ONE 2410 DATA12,216,20,100,7,163,"SOME-",12,216,20,100,7,163, 2420 DATA12,216,20,100,7,163,,12,216,20,100,7,163, 2430 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163, 2440 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 1 2450 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216, 2460 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE " 2470 DATA30,141,38,126,12,216,"RAM-",30,141,38,126,12,216, 2480 DATA34,75,40,200,25,177,"BOW ",34,75,40,200,25,177,:REM BAR 2 2490 DATA0,0,20,100,6,206,WAY ,0,0,20,100,6,206, 2500 DATA17,37,20,100,6,206,,17,37,20,100,6,206, 2510 DATA25,177,34,75,10,60,UP IN ,25,177,34,75,10,60, 2520 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 3 2530 DATA22,227,30,141,12,216," HIGH MEMORY,",22,227,30,141,12,216, 2540 DATA20,100,30,141,12,216,,20,100,30,141,12,216, 2550 DATA19,63,30,141,11,114,,19,63,30,141,11,114, 2560 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 4 2670 DATA0,0,17,37,10,60,"THERE'S ",0,0,17,37,10,60, 2680 DATA11,114,17,37,10,60,,11,114,17,37,10,60, 2690 DATA0,0,27,56,11,114,A ,0,0,27,56,11,114, 2700 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 5 2710 DATA20,100,25,177,7,163,BYTE LOCATION ,20,100,25,177,7,163, 2720 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"I " 2730 DATA20,100,25,177,8,147,HEARD ,20,100,25,177,8,147, 2740 DATA20,100,27,56,8,147,OF ,20,100,27,56,8,147,:REM BAR 6 2750 DATA19,63,22,227,5,185,"[133]ONCE ",19,63,22,227,5,185, 2760 DATA0,0,19,63,5,185,IN ,0,0,20,100,5,185,"A " 2770 DATA17,37,22,227,13,156,TPUG MEET-,17,37,22,227,13,156, 2780 DATA19,63,15,70,25,177,ING ,19,63,15,70,25,177,:REM BAR 7 2790 DATA15,70,20,100,12,216,...,15,70,20,100,12,216, 2800 DATA34,75,40,200,10,60,,30,141,38,126,10,60, 2810 DATA27,56,34,75,11,114,,27,56,34,75,11,114, 2820 DATA30,141,51,97,15,70,,30,141,51,97,15,70,:REM BAR 8 2830 DATA12,216,20,100,7,163,"SOME-",12,216,20,100,7,163, 2840 DATA12,216,20,100,7,163,,12,216,20,100,7,163, 2850 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163, 2860 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 9 2870 DATA30,141,38,126,12,216," O-",30,141,38,126,12,216, 2880 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE " 2890 DATA30,141,38,126,12,216,"RAM-",30,141,38,126,12,216, 2900 DATA34,75,40,200,25,177,"BOW ",34,75,40,200,25,177,:REM BAR 10 2910 DATA0,0,20,100,6,206,SKIES ,0,0,20,100,6,206, 2920 DATA17,37,20,100,6,206,,17,37,20,100,6,206, 2930 DATA25,177,34,75,10,60,ARE ,25,177,34,75,10,60, 2940 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 11 2950 DATA22,227,30,141,12,216,"[133][154]BLUE,",22,227,30,141,12,216, 2960 DATA20,100,30,141,12,216,,20,100,30,141,12,216, 2970 DATA19,63,30,141,11,114,,19,63,30,141,11,114, 2980 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 12 2990 DATA0,0,17,37,10,60,"AND ",0,0,17,37,10,60, 3000 DATA11,114,17,37,10,60,,11,114,17,37,10,60, 3010 DATA0,0,27,56,11,114,THE ,0,0,27,56,11,114, 3020 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 13 3030 DATA20,100,25,177,7,163,PROGRAMS ,20,100,25,177,7,163, 3040 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"YOU " 3050 DATA20,100,25,177,8,147,DARE ,20,100,25,177,8,147, 3060 DATA20,100,27,56,8,147,TO ,20,100,27,56,8,147,:REM BAR 14 3070 DATA19,63,22,227,5,185," DREAM ",19,63,22,227,5,185, 3080 DATA0,0,19,63,5,185,REAL-,0,0,20,100,5,185,"LY " 3090 DATA17,37,22,227,13,156,DO ,17,37,22,227,13,156, 3100 DATA19,63,15,70,25,177,COME ,19,63,15,70,25,177,:REM BAR 15 3110 DATA0,0,20,100,5,25,"TRUE.",0,0,20,100,5,25, 3120 DATA15,70,20,100,5,25,,15,70,20,100,5,25, 3130 DATA15,70,20,100,3,210,,15,70,20,100,3,210, 3140 DATA0,0,0,0,7,163,,0,0,30,141,7,163,"SOME ":REM BAR 16 3145 DATA700,700,700,700,700,700,DREAMILY 3150 DATA0,0,25,177,0,0,DAY ,0,0,30,141,0,0,"I'LL" 3160 DATA15,70,25,177,10,60,WISH ,15,70,30,141,10,60,"UP-" 3170 DATA17,37,25,177,10,60,ON ,17,37,30,141,10,60,"AN " 3180 DATA15,70,25,177,10,60,ASTERISK ,15,70,30,141,10,60,"AND":REM BAR 17 3190 DATA0,0,27,56,0,0,"[158] WAKE ",0,0,30,141,0,0,"UP " 3200 DATA17,37,27,56,11,114,WHERE ,17,37,30,141,11,114,"THE " 3210 DATA20,100,27,56,11,114,CLOUDS ,20,100,30,141,11,114,"ARE " 3220 DATA19,63,27,56,11,114,FAR ,19,63,30,141,11,114,"BE-":REM BAR 18 3230 DATA0,0,34,75,0,0,"HIND ",0,0,34,75,0,0, 3240 DATA19,63,34,75,7,163,,19,63,34,75,7,163, 3250 DATA22,224,34,75,12,216,"ME, ",22,224,34,75,12,216, 3260 DATA20,100,34,75,12,216,,20,100,34,75,12,216,:REM BAR 19 3270 DATA0,0,61,126,10,60,,0,0,38,126,10,60, 3280 DATA17,37,54,111,10,60,,17,37,34,75,10,60, 3290 DATA20,100,51,97,10,60,,20,100,30,141,10,60, 3300 DATA19,63,45,198,10,60,,19,63,30,141,10,60,"WHERE ":REM BAR 20 3310 DATA0,0,25,177,0,0,SYNTAX-,0,0,30,141,0,0,"ERRORS " 3320 DATA15,70,25,177,10,60,MELT ,15,70,30,141,10,60,"LIKE " 3330 DATA17,37,25,177,10,60,LEM-,17,37,30,141,10,60,"ON " 3340 DATA15,70,25,177,10,60,DROPS ,15,70,30,141,10,60," A-":REM BAR 21 3350 DATA0,0,28,214,0,0,WAY ,0,0,34,75,0,0,"A-" 3360 DATA14,107,28,214,0,0,BOVE ,14,107,34,75,0,0," THE " 3370 DATA22,227,28,214,17,37,CHIM-,22,227,34,75,17,37,"NEY " 3380 DATA20,100,28,214,17,37,TOPS ,20,100,34,75,17,37,"THAT'S":REM BAR 22 3390 DATA22,227,38,126,19,63,"[133]WHERE ",22,227,38,126,19,63, 3400 DATA22,227,38,126,17,37,,22,227,38,126,17,37, 3410 DATA20,100,38,126,15,70,YOU'LL ,20,100,38,126,15,70, 3420 DATA20,100,38,126,14,107,,20,100,38,126,14,107,:REM BAR 23 3430 DATA22,227,45,198,13,156,FIND ,22,227,45,198,13,156, 3440 DATA22,227,45,198,13,156,,22,227,45,198,13,156, 3450 DATA24,63,34,75,14,107,ME.,24,63,34,75,14,107, 3460 DATA24,63,34,75,14,107,,24,63,34,75,14,107,:REM BAR 24 3465 DATA800,800,800,800,800,800,CHORUS 3470 DATA12,216,20,100,7,163,"[159]SOME-",12,216,20,100,7,163, 3480 DATA12,216,20,100,7,163,,12,216,20,100,7,163, 3490 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163, 3500 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 25 3510 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216, 3520 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216," THE " 3530 DATA30,141,38,126,12,216,"RAM-",30,141,38,126,12,216, 3540 DATA34,75,40,200,25,177,"BOW ",34,75,40,200,25,177,:REM BAR 26 3550 DATA0,0,20,100,6,206,"COMPUTER ",0,0,20,100,6,206, 3560 DATA17,37,20,100,6,206,,17,37,20,100,6,206, 3570 DATA25,177,34,75,10,60, HACKERS ,25,177,34,75,10,60, 3580 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 27 3590 DATA22,227,30,141,12,216,"[133][153][145]LIVE,",22,227,30,141,12,216, 3600 DATA20,100,30,141,12,216,,20,100,30,141,12,216, 3610 DATA19,63,30,141,11,114,,19,63,30,141,11,114, 3620 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 28 3630 DATA0,0,17,37,10,60,"PROGRAMMERS ",0,0,17,37,10,60, 3640 DATA11,114,17,37,10,60,,11,114,17,37,10,60, 3650 DATA0,0,27,56,11,114,PROGRAM ,0,0,27,56,11,114, 3660 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 29 3670 DATA20,100,25,177,7,163,O-,20,100,25,177,7,163, 3680 DATA17,37,20,100,7,163,VER ,19,63,22,227,7,163,"THE " 3690 DATA20,100,25,177,8,147," RAM-",20,100,25,177,8,147, 3700 DATA20,100,27,56,8,147,"BOW ",20,100,27,56,8,147,:REM BAR 30 3710 DATA19,63,22,227,5,185,"[133][154]WHY ",19,63,22,227,5,185, 3720 DATA0,0,19,63,5,185,THEN ,0,0,20,100,5,185,"OH " 3730 DATA17,37,22,227,13,156,WHY ,17,37,22,227,13,156, 3740 DATA19,63,15,70,25,177,CAN'T ,19,63,15,70,25,177,:REM BAR 31 3750 DATA15,70,20,100,0,0,"I?",15,70,20,100,7,163, 3760 DATA15,70,20,100,8,147,,15,70,20,100,10,60, 3770 DATA15,70,20,100,11,114,,15,70,20,100,12,216, 3775 DATA700,700,700,700,700,700,SLOWER 3780 DATA0,0,0,0,15,70,,40,200,61,126,17,37,:REM BAR 32 3790 DATA30,141,51,97,0,0,,40,200,61,126,0,0, 3800 DATA30,141,51,97,15,70,,40,200,61,126,15,70, 3810 DATA30,141,51,97,17,37,,40,200,61,126,17,37, 3820 DATA30,141,51,97,15,70,,40,200,61,126,15,70,:REM BAR 33 3830 DATA34,75,54,111,0,0,,38,126,61,126,0,0, 3840 DATA34,75,54,111,15,70,,38,126,61,126,15,70, 3850 DATA34,75,54,111,17,37,,38,126,61,126,17,37, 3860 DATA34,75,54,111,15,70,,38,126,61,126,15,70,:REM BAR 34 3870 DATA40,200,68,149,0,0,,40,200,68,149,0,0, 3880 DATA40,200,68,149,15,70,,40,200,68,149,15,70, 3890 DATA40,200,68,149,17,37,,40,200,68,149,17,37, 3900 DATA40,200,68,149,15,70,,40,200,68,149,15,70,:REM BAR 35 3910 DATA27,56,34,75,0,0,,27,56,34,75,0,0, 3920 DATA27,56,34,75,17,37,,27,56,34,75,17,37, 3930 DATA27,56,34,75,20,100,,27,56,34,75,20,100, 3940 DATA0,0,0,0,19,63,,30,141,0,0,19,63,"[133][129]IF ":REM BAR 36 3950 DATA0,0,25,177,10,60,HAP-,0,0,30,141,10,60,"PY " 3960 DATA15,70,25,177,10,60,LIT-,15,70,30,141,10,60,"TLE " 3970 DATA17,37,25,177,10,60,HACK-,17,37,30,141,10,60,"ERS " 3980 DATA15,70,25,177,10,60,HACK ,15,70,30,141,10,60,"BE-":REM BAR 37 3990 DATA0,0,27,56,11,114,"[133][153]YOND ",0,0,30,141,11,114,"THE " 4000 DATA17,37,27,56,11,114,RAM-,17,37,30,141,11,114,"BOW, " 4005 DATA700,700,700,700,700,700,SLOWER 4010 DATA20,100,27,56,11,114,WHY ,20,100,30,141,11,114,"OH " 4015 DATA700,700,700,700,700,700,SLOWER 4017 DATA700,700,700,700,700,700,SLOWER 4020 DATA27,56,34,75,19,63,WHY ,30,141,38,126,19,63,"CAN'T ":REM BAR 38 4030 DATA27,56,40,200,0,0,"I?",27,56,40,200,15,70, 4040 DATA27,56,40,200,17,37,,27,56,40,200,20,100, 4050 DATA34,75,40,200,22,227,,34,75,40,200,27,56, 4060 DATA34,75,40,200,30,141,,34,75,40,200,34,75,:REM BAR 39 4070 DATA61,126,81,161,51,97,,61,126,81,161,51,97, 4080 DATA61,126,81,161,51,97,,61,126,81,161,51,97,:REM BAR 40 -- END OF SONG 9990 DATA 999,999,999,999,999,999,THE END 50000 REM TURN OFF SOUND GENERATOR 50020 FORQ=54270TO54300:POKEQ,0:NEXT 50040 RETURN